﻿<%
'注册插件
Call RegisterPlugin("TimeCounter","ActivePlugin_TimeCounter")

Function ActivePlugin_TimeCounter
End Function

Function InstallPlugin_TimeCounter
	Call TC_CopyFiles(BlogPath &"zb_users\plugin\TimeCounter\database_backup.xml",BlogPath &"zb_users\plugin\TimeCounter\database.xml",False)
End Function

Function TC_CopyFiles(TempSource,TempEnd,IsCover)
    Dim FSO
    Set FSO = Server.CreateObject("Scripting.FileSystemObject")
    IF FSO.FileExists(TempEnd) and IsCover=false then
       Set FSO=Nothing
       Exit Function
    End IF
    IF FSO.FileExists(TempSource) Then
	    FSO.CopyFile TempSource,TempEnd
	    Set FSO = Nothing
    Else
       Set FSO=Nothing
       Exit Function
    End If
End Function
%>